home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / e / opussdk.lha / opussdk / sources / images.e < prev    next >
Text File  |  1997-07-26  |  1KB  |  44 lines
  1. /*****************************************************************************
  2.  
  3.  Images
  4.  
  5.  *****************************************************************************/
  6. OPT MODULE
  7. OPT EXPORT
  8.  
  9. MODULE 'utility/tagitem', 'intuition/screens'
  10.  
  11. -> RenderImage() tags
  12. CONST IM_Width          = TAG_USER + 0    -> Width of image
  13. CONST IM_Height         = TAG_USER + 1    -> Height of image
  14. CONST IM_State          = TAG_USER + 2    -> 1 = selected, 0 = normal (default)
  15. CONST IM_Rectangle      = TAG_USER + 3    -> Rectangle to center within
  16. CONST IM_Mask           = TAG_USER + 4    -> 1 = mask image
  17. CONST IM_Depth          = TAG_USER + 5    -> Depth of image
  18. CONST IM_ClipBoundary   = TAG_USER + 6    -> Clip boundary size
  19. CONST IM_Erase          = TAG_USER + 7    -> Erase background
  20. CONST IM_NoDrawInvalid  = TAG_USER + 8    -> Don't draw if image is invalid
  21. CONST IM_NoIconRemap    = TAG_USER + 9    -> Don't remap icons
  22.  
  23. -> Images remapping
  24. OBJECT imageRemap
  25.     screen:PTR TO screen
  26.     penArray:PTR TO INT
  27.     penCount:INT
  28.     flags:LONG
  29. ENDOBJECT
  30.  
  31. SET IRF_REMAP_COL0,         -> Remap colour 0
  32.     IRF_PRECISION_EXACT,    -> Remap precision
  33.     IRF_PRECISION_ICON,
  34.     IRF_PRECISION_GUI
  35.  
  36. -> Open an image in memory (for remapping)
  37. OBJECT openImageInfo
  38.     imageData:PTR TO INT
  39.     palette:PTR TO LONG
  40.     width:INT
  41.     height:INT
  42.     depth:INT
  43. ENDOBJECT
  44.